home *** CD-ROM | disk | FTP | other *** search
/ More Anime Pin-Up Beauties / More Anime Pin-Up Beauties.iso / mac / WEST / GPX04.dir / 00200_Script_200 < prev    next >
Text File  |  1998-06-22  |  3KB  |  144 lines
  1. -- For SLIDE SHOW
  2. -- ++++++++++++++++++++++++++++++++ initialize of SLD BOX
  3. on initSLD
  4.     global gPathItem
  5.     global gSLDnum
  6.     global gSLDint
  7.     global gSLDply
  8.     global gWait
  9.  
  10.     cursor 4
  11.  
  12.     aiffSound(5)
  13.  
  14.     chgScene("PL-000", the frame + 1, gPathItem & "BGA00")
  15.     -- Wait Slider
  16.     puppetSprite 9,TRUE
  17.     set the locV of sprite 9 to (416 + gWait - 1)
  18.     upDateStage
  19.     -- Position Slider
  20.     placeSLD()
  21.  
  22.     puppetSprite 20,TRUE
  23.     set the visibility of sprite 20 to FALSE
  24.     upDateStage
  25.  
  26.     dispSLD(0)
  27.  
  28.     put 1 into gSLDply
  29.  
  30.     cursor -1
  31.  
  32. -- ++++++++++++++++++++++++++++++++ termination of SLIDE SHOW
  33. on termSLD
  34.  
  35.     cursor 4
  36.     erasePictSLD()
  37.     --clrPicture("SLD.PICT")
  38.     repeat with n = 2 to 24
  39.         puppetSprite n, FALSE
  40.     end repeat
  41.  
  42.     go to frame "000"
  43.  
  44. -- ++++++++++++++++++++++++++++++++ place Position Slider
  45. on placeSLD
  46.     global gSLDnum
  47.  
  48.     puppetSprite 8,TRUE
  49.     set the locV of sprite 8 to (198 + ((gSLDnum - 1) *2))
  50.     upDateStage
  51.  
  52. -- ++++++++++++++++++++++++++++++++ get New Pict
  53. on dispSLD vDelta
  54.     global gSLDnum
  55.  
  56.     put gSLDnum + vDelta into vN
  57.  
  58.     if (vN < 1) then
  59.         put 98 into vN
  60.     end if
  61.  
  62.     if (vN > 98) then
  63.         put 1 into vN
  64.     end if
  65.  
  66.     put vN into gSLDnum
  67.  
  68.     erasePictSLD()
  69.     dispPictSLD(gSLDnum)
  70.     placeSLD()
  71.     startTimer
  72.  
  73. -- ++++++++++++++++++++++++++++++++ Loop check & get newPict
  74. on loopSLD
  75.     global gSLDint
  76.     global gSLDnum
  77.     global gWait
  78.     global gSLDply
  79.  
  80.     --aiffSound(1)
  81.    
  82.     if (gSLDply = 0) then
  83.         return
  84.         exit
  85.     end if
  86.  
  87.     if (the timer > (gWait*60)) then
  88.         dispSLD(1)
  89.     end if
  90.     
  91. -- ++++++++++++++++++++++++++++++++ Start/Stop SLIDE show
  92. on contSLD mode
  93.     global gSLDply
  94.  
  95.     if ((gSLDply = 0) AND (mode = 1)) then
  96.         dispSLD(1)
  97.     end if
  98.  
  99.     put mode into gSLDply
  100.  
  101. -- ++++++++++++++++++++++++++++++++ Drag Wait Slider
  102. on waitSLD
  103.     global gWait
  104.  
  105.     put (the locV of sprite clickOn() - the mouseV) into V
  106.     repeat while the stillDown
  107.         put (the mouseV + V) into vNewV
  108.         if (vNewV < 416) then
  109.             put 416 into vNewV
  110.         end if
  111.  
  112.         if (vNewV > 463) then
  113.             put 463 into vNewV
  114.         end if
  115.  
  116.         set the locV of sprite clickOn() to vNewV
  117.         upDateStage
  118.         put (vNewV - 416  + 1) into gWait
  119.  
  120.     end repeat
  121.  
  122. -- ++++++++++++++++++++++++++++++++ Drag Position Slider
  123. on posSLD
  124.     global gSLDnum
  125.  
  126.     put (the locV of sprite clickOn() - the mouseV) into V
  127.     repeat while the stillDown
  128.         put (the mouseV + V) into vNewV
  129.         if (vNewV < 198) then
  130.             put 198 into vNewV
  131.         end if
  132.  
  133.         if (vNewV > 392) then
  134.             put 392 into vNewV
  135.         end if
  136.  
  137.         set the locV of sprite clickOn() to vNewV
  138.         upDateStage
  139.         put (((vNewV -198)/2) + 1) into gSLDnum
  140.  
  141.     end repeat
  142.  
  143.                 dispSLD(0)
  144.